NYPD_2020_boro = NYPD_2020 %>%
filter(name_of_borough != "")
leaflet(NYPD_2020_boro) %>%
addProviderTiles(providers$CartoDB.Positron) %>%
setView(lng = -73.935242, lat = 40.730610, zoom = 10) %>%
addMarkers(clusterOptions = markerClusterOptions())